##
# Environment.pm
# uAPI Public License
# @author Bastie
##
package uapi::Environment;

use 5; #Perl 5 or higher
use strict;

  ##
  # Constructor
  ##
  sub new () {
    my $type = shift;   # save class name
    my $this = {};      # create hash - array are faster but this come later
    $this->{path} = $_[0];

    bless $this, $type; # create object instance
    return $this;       # return object instance
  }

  ##
  # Destructor
  ##
  sub DESTROY () {
  }

  sub getValue () {
    my $this = shift; # first param == object reference
    my $name = $_[0];
    return $ENV{$name};
  }

  sub getNames () {
    return keys (%ENV);
  }

1;

__END__

=pod

=head1 NAME

Environment.pm - uAPI Environment implementation

=head1 DESCRIPTION

=head1 AUTHOR

Bastie - Sebastian Ritter